unit lcltranslator;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,LResources,Translations;

function TranslateUnitResourceStrings: boolean;
implementation
function TranslateUnitResourceStrings: boolean;
var
  r: TLResource;
  POFile: TPOFile;
begin
  r:=LazarusResources.Find('lclstrconsts.ru','PO');
  POFile:=TPOFile.Create;
  try
    POFile.ReadPOText(r.Value);
    Result:=Translations.TranslateUnitResourceStrings('lclstrconsts',POFile);
  finally
    POFile.Free;
  end;
end;

initialization
  {$I lang/lclstrconsts.lrs}
end.

